home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_503_EachMenu < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.0 KB  |  46 lines
  1. %case usesDialogs%
  2.     %for each menuitem gen usesDialog%
  3. %case doItems.decl%
  4.     %for each menuItem gen doItem.decl%
  5. %case addResMenu%
  6.     %if menuname = Font%
  7.         AddResMenu (MAGetMenu (m%menuname%ID), 'FONT');
  8.     %endif%
  9. %case doItems%
  10.     %for each menuItem gen doItem%
  11. %case handleItems%
  12.     %for each menuItem gen handleItem%
  13. %case enableItems%
  14.     %for each menuItem gen enableItem%
  15. %case defineMenu%
  16.     m%menuname%ID%        %= %MenuID%; 
  17.         %for each menuItem gen defineItem%
  18.  
  19. %case dynamicMenuProc.decl%
  20.     %if menuname = Font%
  21.         Procedure DoFontChange    (menu:    integer;
  22.                                  item:    integer);
  23.     %endif%
  24. %case dynamicMenuProc%
  25.     %if menuname = Font%
  26.         {$S ASelCommand}
  27.         {----------}
  28.         Procedure T%appname%Doc.DoFontChange    (menu:    integer;
  29.                                                   item:    integer);
  30.         var
  31.             aName:        Str255;
  32.             newStyle:    TextStyle;
  33.         Begin
  34.             GetItem (GetMHandle (menu), item, aName);
  35.             GetFNum (aName, newStyle.tsFont);
  36.             { handle font change }
  37.         End; {DoFontChange}
  38.  
  39.     %endif%
  40. %case dynamicMenu%
  41.     %if menuname = Font%
  42.         if menu = mFontID then begin
  43.             DoFontChange (menu, item);
  44.         end;
  45.     %endif%
  46.